home *** CD-ROM | disk | FTP | other *** search
/ The Mac Bible 6 / The Mac Bible 6 CD-ROM (Peachpit Press)(1996).iso / EarDemo.dir 5.0 / 00037_Script_37 < prev    next >
Text File  |  1996-08-19  |  667b  |  27 lines
  1. on mouseDown
  2.   global gLastRollover
  3.   set gLastRollover = the clickOn
  4.   puppetsprite gLastRollover, 1
  5.   repeat while the mousedown
  6.     if rollover(gLastRollover) then 
  7.       set the castnum of sprite (gLastRollover) = the number of cast ((gLastRollover)&"hi")
  8.     else
  9.       set the castnum of sprite (gLastRollover) = the number of cast ((gLastRollover)&"or")
  10.     end if    
  11.     updatestage  
  12.   end repeat      
  13. end
  14.  
  15. on mouseUp
  16.   global gLastRollover
  17.   if NOT rollover(gLastRollover) then
  18.     pupsOff
  19.   else
  20.     puppetsound "Switch Flick"
  21.     updatestage  
  22.     repeat while soundBusy (1)
  23.     end repeat
  24.     PupsOff
  25.     go "end"
  26.   end if
  27. end